home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-ROM Collection / Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso / cactus / 23 / haushaltsbuch v1.0 (.txt) < prev    next >
AmigaBASIC Source Code  |  1988-04-22  |  506b  |  27 lines
  1. ' Ladeprogramm fuer HHB V1.0
  2.  
  3. ON BREAK GOSUB Ende:BREAK ON
  4. ON ERROR GOTO Errormeldung
  5. clearsumme&=125000
  6. IF FRE(-1) > 250000 THEN clearsumme&=FRE(-1)-150000
  7. IF clearsumme&>200000 THEN clearsumme&=200000
  8. CLEAR ,clearsumme&
  9. LOAD "Haushaltssystem/HHB V1.0",r
  10. SYSTEM
  11.  
  12. Errormeldung:
  13.  
  14. IF ERR=7 OR ERR=14 THEN
  15. CLS
  16. LOCATE 12,14:PRINT "Das war es auch schon. Viel zu wenig Speicher frei !"
  17. RESUME Ende
  18. END IF
  19. ON ERROR GOTO 0
  20.  
  21. Ende:
  22.  
  23. LOCATE 20,24:PRINT "Drücken Sie die Linke Maustaste"
  24. WHILE MOUSE(0)<>-1 :WEND
  25. SYSTEM
  26.  
  27.